home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / jpi / musdefed.frm < prev    next >
Text File  |  1997-12-05  |  3KB  |  108 lines
  1. VERSION 5.00
  2. Begin VB.Form Form1 
  3.    BorderStyle     =   1  'Fixed Single
  4.    Caption         =   "Music Definition Editor"
  5.    ClientHeight    =   1890
  6.    ClientLeft      =   5175
  7.    ClientTop       =   1755
  8.    ClientWidth     =   4455
  9.    LinkTopic       =   "Form1"
  10.    MaxButton       =   0   'False
  11.    MinButton       =   0   'False
  12.    ScaleHeight     =   1890
  13.    ScaleWidth      =   4455
  14.    Begin VB.TextBox Text2 
  15.       Height          =   285
  16.       Left            =   2760
  17.       TabIndex        =   2
  18.       Top             =   840
  19.       Width           =   1575
  20.    End
  21.    Begin VB.TextBox Text1 
  22.       Height          =   285
  23.       Left            =   2760
  24.       TabIndex        =   1
  25.       Top             =   240
  26.       Width           =   1575
  27.    End
  28.    Begin VB.ListBox List1 
  29.       Height          =   1620
  30.       Left            =   120
  31.       TabIndex        =   0
  32.       Top             =   120
  33.       Width           =   2535
  34.    End
  35.    Begin VB.Label Label2 
  36.       Caption         =   "Filename"
  37.       Height          =   255
  38.       Left            =   2760
  39.       TabIndex        =   4
  40.       Top             =   600
  41.       Width           =   1575
  42.    End
  43.    Begin VB.Label Label1 
  44.       Caption         =   "Name"
  45.       Height          =   255
  46.       Left            =   2760
  47.       TabIndex        =   3
  48.       Top             =   0
  49.       Width           =   1575
  50.    End
  51. End
  52. Attribute VB_Name = "Form1"
  53. Attribute VB_GlobalNameSpace = False
  54. Attribute VB_Creatable = False
  55. Attribute VB_PredeclaredId = True
  56. Attribute VB_Exposed = False
  57. Private Sub Form_Load()
  58. On Error Resume Next
  59. Call Load
  60. Call UpdateList
  61. List1.ListIndex = 0
  62. End Sub
  63.  
  64. Private Sub Form_Unload(Cancel As Integer)
  65. Call Save
  66. End Sub
  67.  
  68. Private Sub List1_Click()
  69. Call UpdateProperties
  70. End Sub
  71.  
  72. Private Sub List1_KeyUp(KeyCode As Integer, Shift As Integer)
  73. If KeyCode = 46 Then
  74.   MaxMusicFiles = MaxMusicFiles - 1
  75.   For i = List1.ListIndex To MaxMusicFiles + 1
  76.     Musicfiles(i).filename = Musicfiles(i + 1).filename
  77.     Musicfiles(i).tracktitle = Musicfiles(i + 1).tracktitle
  78.   Next i
  79.   List1.ListIndex = List1.ListIndex - 1
  80.   Call UpdateList
  81.   Call UpdateProperties
  82. End If
  83. End Sub
  84.  
  85. Private Sub Text1_KeyUp(KeyCode As Integer, Shift As Integer)
  86. mnum = List1.ListIndex
  87. If mnum > 0 Then
  88.   Musicfiles(mnum).tracktitle = Text1.Text
  89.   Call UpdateList
  90. Else
  91.   MaxMusicFiles = MaxMusicFiles + 1
  92.   currtext = Text1.Text
  93.   Call UpdateList
  94.   List1.ListIndex = MaxMusicFiles
  95.   Call UpdateList
  96.   Text1.Text = currtext
  97.   Text1.SelStart = Len(Text1.Text)
  98.   Musicfiles(mnum).tracktitle = Text1.Text
  99. End If
  100. End Sub
  101.  
  102. Private Sub Text2_KeyUp(KeyCode As Integer, Shift As Integer)
  103. mnum = List1.ListIndex
  104. If mnum > 0 Then
  105.   Musicfiles(mnum).filename = Text2.Text
  106. End If
  107. End Sub
  108.